home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / pcboard / edsb121b.zip / EDSFILE.003 (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-05-01  |  23KB  |  1,008 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Boolean  BOOLEAN004
  23.     Boolean  BOOLEAN005
  24.     Boolean  BOOLEAN006
  25.     Integer  INTEGER001
  26.     Integer  INTEGER002
  27.     Integer  INTEGER003
  28.     Integer  INTEGER004
  29.     Integer  INTEGER005
  30.     String   STRING001
  31.     String   STRING002
  32.     String   STRING003
  33.     String   STRING004
  34.     String   STRING005
  35.     String   STRING006
  36.     String   STRING007
  37.     Byte     BYTE001
  38.     Byte     BYTE002
  39.  
  40. ;------------------------------------------------------------------------------
  41.  
  42.     If (TokCount() <> 1) Then
  43.         PrintLn 
  44.         PrintLn "@X0CEUTMOD1 FATAL ERROR:  INVALID COMMAND SEQUENCE"
  45.         PrintLn 
  46.         PrintLn "@X0AEUTMOD1 may only be ran from within EDSUTIL.PPE!!!"
  47.         Delay 18
  48.     Else
  49.         GetToken STRING003
  50.         Gosub LABEL001
  51.         Goto LABEL012
  52.         :LABEL001
  53.         If (Exist(STRING003)) Goto LABEL002
  54.         PrintLn 
  55.         PrintLn "@X0CCreating " + STRING003 + "..."
  56.         BOOLEAN003 = 0
  57.         FCreate 1, STRING003, 2, 2
  58.         If (Ferr(1)) Then
  59.             BOOLEAN003 = 1
  60.         Else
  61.             BOOLEAN003 = 0
  62.         Endif
  63.         If (BOOLEAN003) Then
  64.             PrintLn 
  65.             PrintLn "@X0CSorry, the @X0F" + STRING003 + " @X0Cfile is currently inaccessible..."
  66.             FClose 1
  67.             Return
  68.         Endif
  69.         FWrite 1, " EDSBack v1.21 Binary Prompts File" + Chr(13) + Chr(10) + Chr(32) + Chr(26) + Chr(0), 39
  70.         FWrite 1, 1, 1
  71.         FWrite 1, 1, 1
  72.         FWrite 1, "N/A", 4
  73.         FWrite 1, "@X0FInitializing...", 75
  74.         FWrite 1, 1, 1
  75.         FWrite 1, Space(15), 15
  76.         FWrite 1, 1, 1
  77.         FWrite 1, 1, 1
  78.         FWrite 1, "N/A", 4
  79.         FWrite 1, "@X0BSearching bad number database...", 75
  80.         FWrite 1, 1, 1
  81.         FWrite 1, Space(15), 15
  82.         FWrite 1, 1, 1
  83.         FWrite 1, 1, 1
  84.         FWrite 1, "N/A", 4
  85.         FWrite 1, "@X0CThat number has already been verified!", 75
  86.         FWrite 1, 1, 1
  87.         FWrite 1, Space(15), 15
  88.         FWrite 1, 1, 1
  89.         FWrite 1, 1, 1
  90.         FWrite 1, "N/A", 4
  91.         FWrite 1, "@X0ASorry, the number entered is not part of this BBS's calling area...", 75
  92.         FWrite 1, 1, 1
  93.         FWrite 1, Space(15), 15
  94.         FWrite 1, 1, 1
  95.         FWrite 1, 1, 1
  96.         FWrite 1, "N/A", 4
  97.         FWrite 1, "@X09Please leave your SysOp a comment...", 75
  98.         FWrite 1, 1, 1
  99.         FWrite 1, Space(15), 15
  100.         FWrite 1, 1, 1
  101.         FWrite 1, 1, 1
  102.         FWrite 1, "N/A", 4
  103.         FWrite 1, "@X09NO LONGER IN USE", 75
  104.         FWrite 1, 1, 1
  105.         FWrite 1, Space(15), 15
  106.         FWrite 1, 1, 1
  107.         FWrite 1, 1, 1
  108.         FWrite 1, "N/A", 4
  109.         FWrite 1, "@X09Thank you! You are now being upgraded...", 75
  110.         FWrite 1, 1, 1
  111.         FWrite 1, Space(15), 15
  112.         FWrite 1, 4, 1
  113.         FWrite 1, 1, 1
  114.         FWrite 1, "N/A", 4
  115.         FWrite 1, "EDSBack Sharing error on file ", 75
  116.         FWrite 1, 0, 1
  117.         FWrite 1, Space(15), 15
  118.         FWrite 1, 1, 1
  119.         FWrite 1, 1, 1
  120.         FWrite 1, "N/A", 4
  121.         FWrite 1, "@X0C@OPTEXT@ file is currently inaccessible!  SysOp notified...", 75
  122.         FWrite 1, 1, 1
  123.         FWrite 1, Space(15), 15
  124.         FWrite 1, 4, 1
  125.         FWrite 1, 1, 1
  126.         FWrite 1, "N/A", 4
  127.         FWrite 1, "not entered in TRASH.BIN!", 75
  128.         FWrite 1, 0, 1
  129.         FWrite 1, Space(15), 15
  130.         FWrite 1, 1, 1
  131.         FWrite 1, 1, 1
  132.         FWrite 1, "@X0A", 4
  133.         FWrite 1, "@X0AEnter your full name", 75
  134.         FWrite 1, 1, 1
  135.         FWrite 1, Space(15), 15
  136.         FWrite 1, 1, 1
  137.         FWrite 1, 1, 1
  138.         FWrite 1, "N/A", 4
  139.         FWrite 1, "@X0CNames do not match!  @OPTEXT@ try/tries remaining!", 75
  140.         FWrite 1, 1, 1
  141.         FWrite 1, Space(15), 15
  142.         FWrite 1, 1, 1
  143.         FWrite 1, 1, 1
  144.         FWrite 1, "N/A", 4
  145.         FWrite 1, "@X0BVerification has @X0CFAILED!", 75
  146.         FWrite 1, 1, 1
  147.         FWrite 1, Space(15), 15
  148.         FWrite 1, 1, 1
  149.         FWrite 1, 1, 1
  150.         FWrite 1, "N/A", 4
  151.         FWrite 1, "@X0CPasswords do not match! @OPTEXT@ try/tries remaining!", 75
  152.         FWrite 1, 1, 1
  153.         FWrite 1, Space(15), 15
  154.         FWrite 1, 1, 1
  155.         FWrite 1, 1, 1
  156.         FWrite 1, "@X0F", 4
  157.         FWrite 1, "        @X0F(R)eturn to BBS, (G)oodbye, (C)ontinue, (E)DSInfo, (H)elp", 75
  158.         FWrite 1, 1, 1
  159.         FWrite 1, Space(15), 15
  160.         FWrite 1, 1, 1
  161.         FWrite 1, 1, 1
  162.         FWrite 1, "@X0A", 4
  163.         FWrite 1, "@X0AIs your number an International number", 75
  164.         FWrite 1, 1, 1
  165.         FWrite 1, Space(15), 15
  166.         FWrite 1, 1, 1
  167.         FWrite 1, 1, 1
  168.         FWrite 1, "@X0F", 4
  169.         FWrite 1, "@X0FCountry Code", 75
  170.         FWrite 1, 1, 1
  171.         FWrite 1, Space(15), 15
  172.         FWrite 1, 1, 1
  173.         FWrite 1, 1, 1
  174.         FWrite 1, "@X0F", 4
  175.         FWrite 1, "@X0FCity Code", 75
  176.         FWrite 1, 1, 1
  177.         FWrite 1, Space(15), 15
  178.         FWrite 1, 1, 1
  179.         FWrite 1, 1, 1
  180.         FWrite 1, "@X0F", 4
  181.         FWrite 1, "@X0FNumber", 75
  182.         FWrite 1, 1, 1
  183.         FWrite 1, Space(15), 15
  184.         FWrite 1, 1, 1
  185.         FWrite 1, 1, 1
  186.         FWrite 1, "@X0C", 4
  187.         FWrite 1, "@X0C@OPTEXT@   Is this correct", 75
  188.         FWrite 1, 1, 1
  189.         FWrite 1, Space(15), 15
  190.         FWrite 1, 1, 1
  191.         FWrite 1, 1, 1
  192.         FWrite 1, "N/A", 4
  193.         FWrite 1, "@X0BYour security level will be upgraded to @OPTEXT@...", 75
  194.         FWrite 1, 1, 1
  195.         FWrite 1, Space(15), 15
  196.         FWrite 1, 1, 1
  197.         FWrite 1, 1, 1
  198.         FWrite 1, "N/A", 4
  199.         FWrite 1, "@X0C@USER@@X0B found in EDSBack trash file...", 75
  200.         FWrite 1, 1, 1
  201.         FWrite 1, Space(15), 15
  202.         FWrite 1, 4, 1
  203.         FWrite 1, 1, 1
  204.         FWrite 1, "N/A", 4
  205.         FWrite 1, "User found in EDSBACK trash file...", 75
  206.         FWrite 1, 0, 1
  207.         FWrite 1, Space(15), 15
  208.         FWrite 1, 4, 1
  209.         FWrite 1, 1, 1
  210.         FWrite 1, "N/A", 4
  211.         FWrite 1, "EDSBack verification failed... No verification match!", 75
  212.         FWrite 1, 0, 1
  213.         FWrite 1, Space(15), 15
  214.         FWrite 1, 1, 1
  215.         FWrite 1, 1, 1
  216.         FWrite 1, "@X0F", 4
  217.         FWrite 1, "@X0FEnter selection", 75
  218.         FWrite 1, 1, 1
  219.         FWrite 1, Space(15), 15
  220.         FWrite 1, 1, 1
  221.         FWrite 1, 1, 1
  222.         FWrite 1, "@X0A", 4
  223.         FWrite 1, "@X0AArea code", 75
  224.         FWrite 1, 1, 1
  225.         FWrite 1, Space(15), 15
  226.         FWrite 1, 4, 1
  227.         FWrite 1, 1, 1
  228.         FWrite 1, "N/A", 4
  229.         FWrite 1, "EDSBack halting verification for security...", 75
  230.         FWrite 1, 0, 1
  231.         FWrite 1, Space(15), 15
  232.         FWrite 1, 1, 1
  233.         FWrite 1, 1, 1
  234.         FWrite 1, "N/A", 4
  235.         FWrite 1, "@X0FSorry, the number you have entered cannot be called back at this time...", 75
  236.         FWrite 1, 1, 1
  237.         FWrite 1, Space(15), 15
  238.         FWrite 1, 1, 1
  239.         FWrite 1, 1, 1
  240.         FWrite 1, "N/A", 4
  241.         FWrite 1, "@X0BYou have been verified and upgraded...", 75
  242.         FWrite 1, 1, 1
  243.         FWrite 1, Space(15), 15
  244.         FWrite 1, 1, 1
  245.         FWrite 1, 1, 1
  246.         FWrite 1, "N/A", 4
  247.         FWrite 1, "@X0ANow dropping carrier... Please call back...", 75
  248.         FWrite 1, 1, 1
  249.         FWrite 1, Space(15), 15
  250.         FWrite 1, 1, 1
  251.         FWrite 1, 1, 1
  252.         FWrite 1, "N/A", 4
  253.         FWrite 1, "@X0AReturning to @BOARDNAME@...", 75
  254.         FWrite 1, 1, 1
  255.         FWrite 1, Space(15), 15
  256.         FWrite 1, 1, 1
  257.         FWrite 1, 1, 1
  258.         FWrite 1, "N/A", 4
  259.         FWrite 1, "@X0CPlease enter a real number next time!", 75
  260.         FWrite 1, 1, 1
  261.         FWrite 1, Space(15), 15
  262.         FWrite 1, 1, 1
  263.         FWrite 1, 1, 1
  264.         FWrite 1, "N/A", 4
  265.         FWrite 1, "@X0FFlagging file (@X09@OPTEXT@@X0F) for download...", 75
  266.         FWrite 1, 1, 1
  267.         FWrite 1, Space(15), 15
  268.         FWrite 1, 1, 1
  269.         FWrite 1, 1, 1
  270.         FWrite 1, "N/A", 4
  271.         FWrite 1, "@X0CSorry, time not adjust because of upcoming event...", 75
  272.         FWrite 1, 1, 1
  273.         FWrite 1, Space(15), 15
  274.         FWrite 1, 4, 1
  275.         FWrite 1, 1, 1
  276.         FWrite 1, "N/A", 4
  277.         FWrite 1, " found in EDSBAD.NUM!", 75
  278.         FWrite 1, 0, 1
  279.         FWrite 1, Space(15), 15
  280.         FWrite 1, 4, 1
  281.         FWrite 1, 1, 1
  282.         FWrite 1, "N/A", 4
  283.         FWrite 1, "EDSBack started callback at ", 75
  284.         FWrite 1, 0, 1
  285.         FWrite 1, Space(15), 15
  286.         FWrite 1, 4, 1
  287.         FWrite 1, 1, 1
  288.         FWrite 1, "N/A", 4
  289.         FWrite 1, "EDSBack ERROR during initialization at ", 75
  290.         FWrite 1, 0, 1
  291.         FWrite 1, Space(15), 15
  292.         FWrite 1, 4, 1
  293.         FWrite 1, 1, 1
  294.         FWrite 1, "N/A", 4
  295.         FWrite 1, "EDSBack redialed at ", 75
  296.         FWrite 1, 0, 1
  297.         FWrite 1, Space(15), 15
  298.         FWrite 1, 4, 1
  299.         FWrite 1, 1, 1
  300.         FWrite 1, "N/A", 4
  301.         FWrite 1, "EDSBack connected at ", 75
  302.         FWrite 1, 0, 1
  303.         FWrite 1, Space(15), 15
  304.         FWrite 1, 4, 1
  305.         FWrite 1, 1, 1
  306.         FWrite 1, "N/A", 4
  307.         FWrite 1, "EDSBack could not adjust time because of event...", 75
  308.         FWrite 1, 0, 1
  309.         FWrite 1, Space(15), 15
  310.         FWrite 1, 4, 1
  311.         FWrite 1, 1, 1
  312.         FWrite 1, "N/A", 4
  313.         FWrite 1, "EDSBack flagged file", 75
  314.         FWrite 1, 0, 1
  315.         FWrite 1, Space(15), 15
  316.         FWrite 1, 4, 1
  317.         FWrite 1, 1, 1
  318.         FWrite 1, "N/A", 4
  319.         FWrite 1, "EDSBack logged user off at ", 75
  320.         FWrite 1, 0, 1
  321.         FWrite 1, Space(15), 15
  322.         FWrite 1, 4, 1
  323.         FWrite 1, 1, 1
  324.         FWrite 1, "N/A", 4
  325.         FWrite 1, "EDSBack ERROR during callback at ", 75
  326.         FWrite 1, 0, 1
  327.         FWrite 1, Space(15), 15
  328.         FWrite 1, 4, 1
  329.         FWrite 1, 1, 1
  330.         FWrite 1, "N/A", 4
  331.         FWrite 1, "EDSBack verification failed... No name match!", 75
  332.         FWrite 1, 0, 1
  333.         FWrite 1, Space(15), 15
  334.         FWrite 1, 4, 1
  335.         FWrite 1, 1, 1
  336.         FWrite 1, "N/A", 4
  337.         FWrite 1, "EDSBack verification failed... No password match!", 75
  338.         FWrite 1, 0, 1
  339.         FWrite 1, Space(15), 15
  340.         FWrite 1, 4, 1
  341.         FWrite 1, 1, 1
  342.         FWrite 1, "N/A", 4
  343.         FWrite 1, " # not found in Allowed # database", 75
  344.         FWrite 1, 0, 1
  345.         FWrite 1, Space(15), 15
  346.         FWrite 1, 1, 1
  347.         FWrite 1, 1, 1
  348.         FWrite 1, "N/A", 4
  349.         FWrite 1, "@X0BSearching allowed number calling file...", 75
  350.         FWrite 1, 1, 1
  351.         FWrite 1, Space(15), 15
  352.         FWrite 1, 4, 1
  353.         FWrite 1, 1, 1
  354.         FWrite 1, "N/A", 4
  355.         FWrite 1, "# not called because of timetables...", 75
  356.         FWrite 1, 0, 1
  357.         FWrite 1, Space(15), 15
  358.         FWrite 1, 4, 1
  359.         FWrite 1, 1, 1
  360.         FWrite 1, "N/A", 4
  361.         FWrite 1, "EDSBack Dialing String = ", 75
  362.         FWrite 1, 0, 1
  363.         FWrite 1, Space(15), 15
  364.         FWrite 1, 4, 1
  365.         FWrite 1, 1, 1
  366.         FWrite 1, "N/A", 4
  367.         FWrite 1, " has already been called back!", 75
  368.         FWrite 1, 0, 1
  369.         FWrite 1, Space(15), 15
  370.         FWrite 1, 4, 1
  371.         FWrite 1, 1, 1
  372.         FWrite 1, "N/A", 4
  373.         FWrite 1, "EDSBack verification failed... No city match!", 75
  374.         FWrite 1, 0, 1
  375.         FWrite 1, Space(15), 15
  376.         FWrite 1, 1, 1
  377.         FWrite 1, 1, 1
  378.         FWrite 1, "N/A", 4
  379.         FWrite 1, "@X0CVerification strings do not match!  @OPTEXT@ try/tries remaining!", 75
  380.         FWrite 1, 1, 1
  381.         FWrite 1, Space(15), 15
  382.         FWrite 1, 1, 1
  383.         FWrite 1, 1, 1
  384.         FWrite 1, "N/A", 4
  385.         FWrite 1, "@X0CCities do not match!  @OPTEXT@ try/tries remaining!", 75
  386.         FWrite 1, 1, 1
  387.         FWrite 1, Space(15), 15
  388.         FWrite 1, 1, 1
  389.         FWrite 1, 1, 1
  390.         FWrite 1, "N/A", 4
  391.         FWrite 1, "@X0CYour SysOp has disabled this function...  @DELAY:9@", 75
  392.         FWrite 1, 1, 1
  393.         FWrite 1, Space(15), 15
  394.         FWrite 1, 1, 1
  395.         FWrite 1, 1, 1
  396.         FWrite 1, "N/A", 4
  397.         FWrite 1, "@X0FUser's Name : @X09@OPTEXT@", 75
  398.         FWrite 1, 1, 1
  399.         FWrite 1, Space(15), 15
  400.         FWrite 1, 1, 1
  401.         FWrite 1, 1, 1
  402.         FWrite 1, "N/A", 4
  403.         FWrite 1, "@X0FDate        : @X09@OPTEXT@", 75
  404.         FWrite 1, 1, 1
  405.         FWrite 1, Space(15), 15
  406.         FWrite 1, 1, 1
  407.         FWrite 1, 1, 1
  408.         FWrite 1, "N/A", 4
  409.         FWrite 1, "@X0FTime        : @X09@OPTEXT@", 75
  410.         FWrite 1, 1, 1
  411.         FWrite 1, Space(15), 15
  412.         FWrite 1, 1, 1
  413.         FWrite 1, 1, 1
  414.         FWrite 1, "N/A", 4
  415.         FWrite 1, "@X0AEDSBack is currently @X8CLOCKED@X0A from any use... @DELAY:9@", 75
  416.         FWrite 1, 1, 1
  417.         FWrite 1, Space(15), 15
  418.         FWrite 1, 4, 1
  419.         FWrite 1, 1, 1
  420.         FWrite 1, "N/A", 4
  421.         FWrite 1, "EDSBack currently locked...", 75
  422.         FWrite 1, 0, 1
  423.         FWrite 1, Space(15), 15
  424.         FWrite 1, 4, 1
  425.         FWrite 1, 1, 1
  426.         FWrite 1, "N/A", 4
  427.         FWrite 1, "Entered EDSBack at ", 75
  428.         FWrite 1, 0, 1
  429.         FWrite 1, Space(15), 15
  430.         FWrite 1, 1, 1
  431.         FWrite 1, 1, 1
  432.         FWrite 1, "N/A", 4
  433.         FWrite 1, "@X0CYour callback number must contain at least @OPTEXT@ digits!", 75
  434.         FWrite 1, 1, 1
  435.         FWrite 1, Space(15), 15
  436.         FWrite 1, 4, 1
  437.         FWrite 1, 1, 1
  438.         FWrite 1, "N/A", 4
  439.         FWrite 1, "User entered callback # that was too short!", 75
  440.         FWrite 1, 0, 1
  441.         FWrite 1, Space(15), 15
  442.         FWrite 1, 4, 1
  443.         FWrite 1, 1, 1
  444.         FWrite 1, "N/A", 4
  445.         FWrite 1, "EDSBack original dial at ", 75
  446.         FWrite 1, 0, 1
  447.         FWrite 1, Space(15), 15
  448.         FWrite 1, 1, 1
  449.         FWrite 1, 1, 1
  450.         FWrite 1, "N/A", 4
  451.         FWrite 1, "@X0BYour phone number was correctly detected via CALLER-ID...", 75
  452.         FWrite 1, 1, 1
  453.         FWrite 1, Space(15), 15
  454.         FWrite 1, 4, 1
  455.         FWrite 1, 1, 1
  456.         FWrite 1, "N/A", 4
  457.         FWrite 1, "Users phone # found in CID string (User upgraded)", 75
  458.         FWrite 1, 0, 1
  459.         FWrite 1, Space(15), 15
  460.         FWrite 1, 1, 1
  461.         FWrite 1, 1, 1
  462.         FWrite 1, "N/A", 4
  463.         FWrite 1, "NO LONGER IN USE", 75
  464.         FWrite 1, 1, 1
  465.         FWrite 1, Space(15), 15
  466.         FWrite 1, 1, 1
  467.         FWrite 1, 1, 1
  468.         FWrite 1, "N/A", 4
  469.         FWrite 1, "@X0BExecuting external program...", 75
  470.         FWrite 1, 1, 1
  471.         FWrite 1, Space(15), 15
  472.         FWrite 1, 4, 1
  473.         FWrite 1, 1, 1
  474.         FWrite 1, "N/A", 4
  475.         FWrite 1, "EDSBack loaded file ", 75
  476.         FWrite 1, 0, 1
  477.         FWrite 1, Space(15), 15
  478.         FWrite 1, 1, 1
  479.         FWrite 1, 1, 1
  480.         FWrite 1, "N/A", 4
  481.         FWrite 1, "@X0BSearching for numbers that have already been used...", 75
  482.         FWrite 1, 1, 1
  483.         FWrite 1, Space(15), 15
  484.         FWrite 1, 1, 1
  485.         FWrite 1, 1, 1
  486.         FWrite 1, "N/A", 4
  487.         FWrite 1, "@X0BSorting information...", 75
  488.         FWrite 1, 1, 1
  489.         FWrite 1, Space(15), 15
  490.         INTEGER001 = 6829
  491.         Goto LABEL003
  492.         :LABEL002
  493.         PrintLn 
  494.         PrintLn "@X0AReading " + STRING003 + "..."
  495.         BOOLEAN003 = 0
  496.         FOpen 1, STRING003, 2, 2
  497.         If (Ferr(1)) Then
  498.             BOOLEAN003 = 1
  499.         Else
  500.             BOOLEAN003 = 0
  501.         Endif
  502.         If (BOOLEAN003) Then
  503.             PrintLn 
  504.             PrintLn "@X0CSorry, the @X0F" + STRING003 + " @X0Cfile is currently inaccessible..."
  505.             FClose 1
  506.             Return
  507.         Endif
  508.         INTEGER001 = FileInf(STRING003, 4)
  509.         :LABEL003
  510.         BOOLEAN004 = 0
  511.         INTEGER002 = (INTEGER001 - 39) / 97
  512.         INTEGER003 = 1
  513.         BOOLEAN005 = 1
  514.         OpText "@optext@"
  515.         While (!BOOLEAN004 && !Ferr(1)) Do
  516.             If (BOOLEAN005) Then
  517.                 FSeek 1, 39 + 97 * INTEGER003 - 97, 0
  518.                 FRead 1, BYTE001, 1
  519.                 FRead 1, BOOLEAN002, 1
  520.                 FRead 1, STRING001, 4
  521.                 FRead 1, STRING002, 75
  522.                 FRead 1, BOOLEAN001, 1
  523.             Endif
  524.             PrintLn 
  525.             PrintLn 
  526.             PrintLn "@X0APrompt #@X0F" + String(INTEGER003) + "@X0A of@X0F " + String(INTEGER002)
  527.             PrintLn 
  528.             Print "    @X0F(@X09T@X0F)@X0Bype : @X0C"
  529.             Select Case (BYTE001)
  530.                 Case 1
  531.                     PrintLn "Display Prompt"
  532.                 Case 2
  533.                     PrintLn "PPE File"
  534.                 Case 3
  535.                     PrintLn "Display File"
  536.                 Case 4
  537.                     PrintLn "Logging Prompt  (NO @ CODES ALLOWED!)"
  538.             End Select
  539.             Print "    @X0F(@X09U@X0F)@X0Btilize prompt : @X0C"
  540.             If (BOOLEAN002) Then
  541.                 PrintLn "Yes"
  542.             Else
  543.                 PrintLn "No "
  544.             Endif
  545.             PrintLn "    @X0BParentheses @X0F(@X09C@X0F)@X0Bolor : @X0C" + Lower(STRING001)
  546.             PrintLn "    @X0F(@X09P@X0F)@X0Brompt @X0C(See line below)"
  547.             PrintLn 
  548.             BYTE002 = Len(STRING002)
  549.             BYTE002 = 80 - BYTE002
  550.             BYTE002 = BYTE002 / 2
  551.             PrintLn Space(BYTE002) + STRING002
  552.             BYTE002 = 0
  553.             PrintLn 
  554.             Print "    @X0F(@X09L@X0F)@X0Binefeed before prompt : @X0C"
  555.             If (BOOLEAN001) Then
  556.                 PrintLn "Yes"
  557.             Else
  558.                 PrintLn "No "
  559.             Endif
  560.             PrintLn 
  561.             PrintLn "    @X0F(@X09+@X0F)@X0B Advance 1 prompt    @X0F(@X09-@X0F)@X0B Retard 1 prompt"
  562.             PrintLn "    @X0F(@X09J@X0F)@X0Bump to prompt        @X0F(@X09S@X0F)@X0Bearch for text"
  563.             PrintLn "    @X0F(@X09V@X0F)@X0Biew default prompt   @X0F(@X09R@X0F)@X0Beset to default"
  564.             PrintLn "    @X0F(@X09Q@X0F)@X0Buit to main"
  565.             PrintLn 
  566.             InputStr "(H)elp, Enter command", STRING004, 15, 1, "+-JjSsVvRrQqLlPpCcUuTtHh", 2 + 4
  567.             Newline
  568.             STRING004 = Upper(STRING004)
  569.             If (STRING004 == "Q") Then
  570.                 BOOLEAN005 = 0
  571.                 BOOLEAN004 = 1
  572.                 Continue
  573.             Endif
  574.             If (STRING004 == "H") Then
  575.                 Print "@PON@"
  576.                 DispFile PPEPath() + "EDSP", 1 + 4
  577.                 Print "@POFF@"
  578.                 Cls
  579.                 BOOLEAN005 = 0
  580.                 BOOLEAN004 = 0
  581.                 Continue
  582.             Endif
  583.             If (STRING004 == "S") Then
  584.                 Gosub LABEL010
  585.                 If (BOOLEAN006) Then
  586.                     PrintLn 
  587.                     PrintLn "Your search criteria has been found..."
  588.                     Delay 5
  589.                 Endif
  590.                 BOOLEAN005 = 1
  591.                 BOOLEAN004 = 0
  592.                 Continue
  593.             Endif
  594.             If (STRING004 == "V") Then
  595.                 PrintLn 
  596.                 PrintLn Space(23) + "@X0F(Default Prompt Shown Below)"
  597.                 PrintLn 
  598.                 STRING005 = ""
  599.                 Gosub LABEL009
  600.                 BYTE002 = 80 - Len(STRING005)
  601.                 BYTE002 = BYTE002 / 2
  602.                 PrintLn Space(BYTE002) + STRING005
  603.                 Newline
  604.                 Wait
  605.                 BOOLEAN005 = 0
  606.                 BOOLEAN004 = 0
  607.                 Continue
  608.             Endif
  609.             If (STRING004 == "R") Then
  610.                 PrintLn 
  611.                 STRING005 = NoChar()
  612.                 InputYN "Are you sure", STRING005, 12
  613.                 STRING005 = Upper(STRING005)
  614.                 If (STRING005 == Upper(YesChar())) Then
  615.                     STRING005 = ""
  616.                     Gosub LABEL009
  617.                     STRING002 = STRING005
  618.                     FSeek 1, 39 + INTEGER003 * 97 - 91, 0
  619.                     FWrite 1, STRING002, 75
  620.                 Endif
  621.                 BOOLEAN005 = 1
  622.                 BOOLEAN004 = 0
  623.                 Continue
  624.             Endif
  625.             If (STRING004 == "+") Then
  626.                 If (INTEGER003 >= INTEGER002) Then
  627.                     INTEGER003 = 1
  628.                     Goto LABEL004
  629.                 Endif
  630.                 Inc INTEGER003
  631.                 :LABEL004
  632.                 BOOLEAN005 = 1
  633.                 BOOLEAN004 = 0
  634.                 Continue
  635.             Endif
  636.             If (STRING004 == "-") Then
  637.                 If (INTEGER003 <= 1) Then
  638.                     INTEGER003 = INTEGER002
  639.                     Goto LABEL005
  640.                 Endif
  641.                 Dec INTEGER003
  642.                 :LABEL005
  643.                 BOOLEAN005 = 1
  644.                 BOOLEAN004 = 0
  645.                 Continue
  646.             Endif
  647.             If (STRING004 == "J") Then
  648.                 INTEGER003 = INTEGER002
  649.                 InputInt "Prompt # to jump to", INTEGER003, 10
  650.                 Newline
  651.                 If (INTEGER003 > INTEGER002) Then
  652.                     INTEGER003 = INTEGER002
  653.                     Goto LABEL006
  654.                 Endif
  655.                 If (INTEGER003 < 1) Then
  656.                     INTEGER003 = 1
  657.                 Endif
  658.                 :LABEL006
  659.                 BOOLEAN005 = 1
  660.                 BOOLEAN004 = 0
  661.                 Continue
  662.             Endif
  663.             If (STRING004 == "L") Then
  664.                 If (BOOLEAN001) Then
  665.                     BOOLEAN001 = 0
  666.                     Goto LABEL007
  667.                 Endif
  668.                 BOOLEAN001 = 1
  669.                 :LABEL007
  670.                 FSeek 1, 39 + INTEGER003 * 97 - 16, 0
  671.                 FWrite 1, BOOLEAN001, 1
  672.                 BOOLEAN005 = 1
  673.                 BOOLEAN004 = 0
  674.                 Continue
  675.             Endif
  676.             If (STRING004 == "U") Then
  677.                 If (BOOLEAN002) Then
  678.                     BOOLEAN002 = 0
  679.                     Goto LABEL008
  680.                 Endif
  681.                 BOOLEAN002 = 1
  682.                 :LABEL008
  683.                 FSeek 1, 39 + INTEGER003 * 97 - 96, 0
  684.                 FWrite 1, BOOLEAN002, 1
  685.                 BOOLEAN005 = 1
  686.                 BOOLEAN004 = 0
  687.                 Continue
  688.             Endif
  689.             If (STRING004 == "T") Then
  690.                 STRING005 = I2S(BYTE001, 10)
  691.                 PrintLn "@X0C(1 = Prompt, 2 = PPE, 3 = Disp File, 4 = Log)"
  692.                 InputStr "New prompt type", STRING005, 15, 1, "1234", 2 + 4
  693.                 Newline
  694.                 BYTE001 = S2I(STRING005, 10)
  695.                 If (BYTE001 == 4) Then
  696.                     PrintLn "@X0ASince this is now a logging prompt, all @x codes have been stripped out..."
  697.                     STRING002 = StripAtx(STRING002)
  698.                     FSeek 1, 39 + INTEGER003 * 97 - 91, 0
  699.                     FWrite 1, STRING002, 75
  700.                 Endif
  701.                 FSeek 1, 39 + INTEGER003 * 97 - 97, 0
  702.                 FWrite 1, BYTE001, 1
  703.                 BOOLEAN005 = 1
  704.                 BOOLEAN004 = 0
  705.                 Continue
  706.             Endif
  707.             If (STRING004 == "P") Then
  708.                 PrintLn Space(27) + "@X0FInput new prompt below..."
  709.                 InputText "", STRING002, 15, 75
  710.                 Newline
  711.                 FSeek 1, 39 + INTEGER003 * 97 - 91, 0
  712.                 FWrite 1, STRING002, 75
  713.                 BOOLEAN005 = 1
  714.                 BOOLEAN004 = 0
  715.                 Continue
  716.             Endif
  717.             If (STRING004 == "C") Then
  718.                 InputText "New prompt parentheses color", STRING001, 10, 4
  719.                 Newline
  720.                 FSeek 1, 39 + INTEGER003 * 97 - 95, 0
  721.                 FWrite 1, STRING001, 4
  722.                 BOOLEAN005 = 1
  723.                 BOOLEAN004 = 0
  724.             Endif
  725.         EndWhile
  726.         FClose 1
  727.         PrintLn 
  728.         Return
  729.         :LABEL009
  730.         STRING005 = ""
  731.         Select Case (INTEGER003)
  732.             Case 1
  733.                 STRING005 = "@X0FInitializing..."
  734.             Case 2
  735.                 STRING005 = "@X0BSearching bad number database..."
  736.             Case 3
  737.                 STRING005 = "@X0CThat number has already been verified!"
  738.             Case 4
  739.                 STRING005 = "@X0ASorry, the number entered is not part of this BBS's calling area..."
  740.             Case 5
  741.                 STRING005 = "@X09Please leave your SysOp a comment..."
  742.             Case 6
  743.                 STRING005 = "@X09NO LONGER IN USE"
  744.             Case 7
  745.                 STRING005 = "@X09Thank you! You are now being upgraded..."
  746.             Case 8
  747.                 STRING005 = "EDSBack Sharing error on file "
  748.             Case 9
  749.                 STRING005 = "@X0C@OPTEXT@ file is currently inaccessible!  SysOp notified..."
  750.             Case 10
  751.                 STRING005 = "not entered in TRASH.BIN!"
  752.             Case 11
  753.                 STRING005 = "@X0AEnter your full name"
  754.             Case 12
  755.                 STRING005 = "@X0CNames do not match!  @OPTEXT@ try/tries remaining!"
  756.             Case 13
  757.                 STRING005 = "@X0BVerification has @X0CFAILED!"
  758.             Case 14
  759.                 STRING005 = "@X0CPasswords do not match! @OPTEXT@ try/tries remaining!"
  760.             Case 15
  761.                 STRING005 = "        @X0F(R)eturn to BBS, (G)oodbye, (C)ontinue, (E)DSInfo, (H)elp"
  762.             Case 16
  763.                 STRING005 = "@X0AIs your number an International number"
  764.             Case 17
  765.                 STRING005 = "@X0FCountry Code"
  766.             Case 18
  767.                 STRING005 = "@X0FCity Code"
  768.             Case 19
  769.                 STRING005 = "@X0FNumber"
  770.             Case 20
  771.                 STRING005 = "@X0C@OPTEXT@   Is this correct"
  772.             Case 21
  773.                 STRING005 = "@X0BYour security level will be upgraded to @OPTEXT@..."
  774.             Case 22
  775.                 STRING005 = "@X0C@USER@@X0B found in EDSBack trash file..."
  776.             Case 23
  777.                 STRING005 = "User found in EDSBACK trash file..."
  778.             Case 24
  779.                 STRING005 = "EDSBack verification failed... No verification match!"
  780.             Case 25
  781.                 STRING005 = "@X0FEnter selection"
  782.             Case 26
  783.                 STRING005 = "@X0AArea code"
  784.             Case 27
  785.                 STRING005 = "EDSBack halting verification for security..."
  786.             Case 28
  787.                 STRING005 = "@X0FSorry, the number you have entered cannot be called back at this time..."
  788.             Case 29
  789.                 STRING005 = "@X0BYou have been verified and upgraded..."
  790.             Case 30
  791.                 STRING005 = "@X0ANow dropping carrier... Please call back..."
  792.             Case 31
  793.                 STRING005 = "@X0AReturning to @BOARDNAME@..."
  794.             Case 32
  795.                 STRING005 = "@X0CPlease enter a real number next time!"
  796.             Case 33
  797.                 STRING005 = "@X0FFlagging file (@X09@OPTEXT@@X0F) for download..."
  798.             Case 34
  799.                 STRING005 = "@X0CSorry, time not adjust because of upcoming event..."
  800.             Case 35
  801.                 STRING005 = " found in EDSBAD.NUM!"
  802.             Case 36
  803.                 STRING005 = "EDSBack started callback at "
  804.             Case 37
  805.                 STRING005 = "EDSBack ERROR during initialization at "
  806.             Case 38
  807.                 STRING005 = "EDSBack redialed at "
  808.             Case 39
  809.                 STRING005 = "EDSBack connected at "
  810.             Case 40
  811.                 STRING005 = "EDSBack could not adjust time because of event..."
  812.             Case 41
  813.                 STRING005 = "EDSBack flagged file"
  814.             Case 42
  815.                 STRING005 = "EDSBack logged user off at "
  816.             Case 43
  817.                 STRING005 = "EDSBack ERROR during callback at "
  818.             Case 44
  819.                 STRING005 = "EDSBack verification failed... No name match!"
  820.             Case 45
  821.                 STRING005 = "EDSBack verification failed... No password match!"
  822.             Case 46
  823.                 STRING005 = " # not found in Allowed # database"
  824.             Case 47
  825.                 STRING005 = "@X0BSearching allowed number calling file..."
  826.             Case 48
  827.                 STRING005 = "# not called because of timetables..."
  828.             Case 49
  829.                 STRING005 = "EDSBack Dialing String = "
  830.             Case 50
  831.                 STRING005 = " has already been called back!"
  832.             Case 51
  833.                 STRING005 = "EDSBack verification failed... No city match!"
  834.             Case 52
  835.                 STRING005 = "@X0CVerification strings do not match!  @OPTEXT@ try/tries remaining!"
  836.             Case 53
  837.                 STRING005 = "@X0CCities do not match!  @OPTEXT@ try/tries remaining!"
  838.             Case 54
  839.                 STRING005 = "@X0CYour SysOp has disabled this function...  @DELAY:9@"
  840.             Case 55
  841.                 STRING005 = "@X0FUser's Name : @X09@OPTEXT@"
  842.             Case 56
  843.                 STRING005 = "@X0FDate        : @X09@OPTEXT@"
  844.             Case 57
  845.                 STRING005 = "@X0FTime        : @X09@OPTEXT@"
  846.             Case 58
  847.                 STRING005 = "@X0AEDSBack is currently @X8CLOCKED@X0A from any use... @DELAY:9@"
  848.             Case 59
  849.                 STRING005 = "EDSBack currently locked..."
  850.             Case 60
  851.                 STRING005 = "Entered EDSBack at "
  852.             Case 61
  853.                 STRING005 = "@X0CYour callback number must contain at least @OPTEXT@ digits!"
  854.             Case 62
  855.                 STRING005 = "User entered callback # that was too short!"
  856.             Case 63
  857.                 STRING005 = "EDSBack original dial at "
  858.             Case 64
  859.                 STRING005 = "@X0BYour phone number was correctly detected via CALLER-ID..."
  860.             Case 65
  861.                 STRING005 = "Users phone # found in CID string (User upgraded)"
  862.             Case 66
  863.                 STRING005 = "@X09NO LONGER IN USE"
  864.             Case 67
  865.                 STRING005 = "@X0BExecuting external program..."
  866.             Case 68
  867.                 STRING005 = "EDSBack loaded file "
  868.             Case 69
  869.                 STRING005 = "@X0BSearching for numbers that have already been used..."
  870.             Case 70
  871.                 STRING005 = "@X0BSorting information..."
  872.         End Select
  873.         Return
  874.         :LABEL010
  875.         PrintLn 
  876.         PrintLn "@X0AEnter search criteria below. (BOYER-MOORE format)"
  877.         InputStr "", STRING007, 10, 75, Mask_Ascii(), 2 + 4
  878.         PrintLn 
  879.         STRING007 = Trim(STRING007, " ")
  880.         If (STRING007 == "") Then
  881.             PrintLn "@X0CSearch aborted...  Returning to prompt editing facility..."
  882.             BOOLEAN006 = 0
  883.             Return
  884.         Endif
  885.         PrintLn "@X0BInitializing search..."
  886.         SearchInit STRING007, 0
  887.         PrintLn 
  888.         Print "@X0FSearching prompt #@X09" + String(INTEGER003) + " @X0Fof @X09" + String(INTEGER002)
  889.         INTEGER004 = INTEGER003
  890.         INTEGER005 = INTEGER003
  891.         BOOLEAN006 = 0
  892.         FSeek 1, 39 + INTEGER003 * 97 - 97, 0
  893.         While (!BOOLEAN006 && (INTEGER003 <= INTEGER002)) Do
  894.             FSeek 1, 6, 1
  895.             FRead 1, STRING006, 75
  896.             FSeek 1, 16, 1
  897.             Backup Len(String(INTEGER005) + " of " + String(INTEGER002))
  898.             Print "@X09" + String(INTEGER003) + " @X0Fof @X09" + String(INTEGER002)
  899.             SearchFind STRING006, BOOLEAN006
  900.             If (BOOLEAN006 && (INTEGER003 <> INTEGER004)) Then
  901.                 SearchStop
  902.                 Return
  903.                 Continue
  904.             Endif
  905.             INTEGER005 = INTEGER003
  906.             Inc INTEGER003
  907.             BOOLEAN006 = 0
  908.         EndWhile
  909.         If (BOOLEAN006) Goto LABEL011
  910.         INTEGER003 = INTEGER004
  911.         PrintLn 
  912.         PrintLn "@X0ESorry, your search criteria was not found..."
  913.         :LABEL011
  914.         SearchStop
  915.         Return
  916.     Endif
  917.     :LABEL012
  918.     End
  919.  
  920. ;------------------------------------------------------------------------------
  921. ;
  922. ; Usage report (before postprocessing)
  923. ;
  924. ; ■ Statements used :
  925. ;
  926. ;    1       End
  927. ;    1       Cls
  928. ;    1       Wait
  929. ;    209     Goto 
  930. ;    141     Let 
  931. ;    7       Print 
  932. ;    54      PrintLn 
  933. ;    110     If 
  934. ;    1       DispFile 
  935. ;    1       FCreate 
  936. ;    1       FOpen 
  937. ;    3       FClose 
  938. ;    3       InputStr 
  939. ;    1       InputYN 
  940. ;    1       InputInt 
  941. ;    4       Gosub 
  942. ;    7       Return
  943. ;    2       Delay 
  944. ;    2       Inc 
  945. ;    1       Dec 
  946. ;    6       Newline
  947. ;    1       GetToken 
  948. ;    2       InputText 
  949. ;    1       OpText 
  950. ;    1       Backup 
  951. ;    11      FSeek 
  952. ;    6       FRead 
  953. ;    428     FWrite 
  954. ;    1       SearchInit 
  955. ;    1       SearchFind 
  956. ;    2       SearchStop
  957. ;
  958. ;
  959. ; ■ Functions used :
  960. ;
  961. ;    9       *
  962. ;    3       /
  963. ;    43      +
  964. ;    12      -
  965. ;    90      ==
  966. ;    2       <>
  967. ;    1       <
  968. ;    2       <=
  969. ;    1       >
  970. ;    1       >=
  971. ;    113     !
  972. ;    3       &&
  973. ;    3       Len(
  974. ;    1       Lower()
  975. ;    3       Upper()
  976. ;    74      Space()
  977. ;    3       Ferr()
  978. ;    5       Chr()
  979. ;    1       Trim()
  980. ;    1       NoChar()
  981. ;    1       YesChar()
  982. ;    1       StripAtx()
  983. ;    8       String()
  984. ;    1       Mask_Ascii()
  985. ;    1       PPEPath()
  986. ;    1       Exist()
  987. ;    1       I2S()
  988. ;    1       S2I()
  989. ;    1       FileInf()
  990. ;    1       TokCount()
  991. ;
  992. ;------------------------------------------------------------------------------
  993. ;
  994. ; Analysis flags : No flag
  995. ;
  996. ;------------------------------------------------------------------------------
  997. ;
  998. ; Postprocessing report
  999. ;
  1000. ;    0       For/Next
  1001. ;    2       While/EndWhile
  1002. ;    32      If/Then or If/Then/Else
  1003. ;    2       Select Case
  1004. ;
  1005. ;------------------------------------------------------------------------------
  1006. ;                 AEGiS Corp - Break the routines, code against the machines!
  1007. ;------------------------------------------------------------------------------
  1008.